Hypothèse basse
readd(output_urbaines) %>%
CartO(selon = LOW) +
labs(subtitle = paste("Hypothèse basse", lubridate::today()))+
geom_sf(data = readd(Dept), alpha = 0)
## Le chargement a nécessité le package : magrittr
##
## Attachement du package : 'magrittr'
## The following object is masked from 'package:purrr':
##
## set_names
## The following object is masked from 'package:tidyr':
##
## extract

Hypothèse haute
readd(output_urbaines) %>%
CartO(selon = HIGH) +
labs(subtitle = paste("Hypothèse haute", lubridate::today()))+
geom_sf(data = readd(Dept), alpha = 0)
